home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Serious Demos / Morpha / 3DO.DXR / 00008.ls < prev    next >
Encoding:
Text File  |  1998-07-31  |  1.3 KB  |  63 lines
  1. global grouper, gcos, gsin
  2.  
  3. on startMovie
  4.   global ca, switch, bore, ba, check, t1, s, drums, drumonly, trap, face, label, start, ate, logo, logo2, flipper
  5.   set gcos to [:]
  6.   set gsin to [:]
  7.   set the floatPrecision to 2
  8.   put "all groups" into field "group"
  9.   set grouper to 0
  10.   set this to 0
  11.   set ca to 1
  12.   set switch to 0
  13.   set bore to 0
  14.   set ba to 1
  15.   set check to 0
  16.   set t1 to 2
  17.   set s to 2
  18.   set drums to 0
  19.   set drumonly to 0
  20.   set trap to 0
  21.   set face to random(2)
  22.   set the visible of sprite 4 to 0
  23.   set the visible of sprite 3 to 0
  24.   set the visible of sprite 11 to 0
  25.   set label to 1
  26.   set start to the ticks / 60 / 60
  27.   put EMPTY into field "output"
  28.   set ate to -1
  29.   set logo to 0
  30.   set logo2 to 0
  31.   set flipper to 1
  32.   put EMPTY into field "debug"
  33.   do("sel" & s & EMPTY)
  34. end
  35.  
  36. on idle
  37.   global label, wait, s
  38.   if label = 1 then
  39.     if the mouseDown then
  40.       if wait > 6 then
  41.         set wait to 1
  42.       end if
  43.       if the timeoutLapsed > (3 * 60) then
  44.         startTimer()
  45.         mixdown()
  46.         put "switching" into field "debug"
  47.         do("sel" & s & EMPTY)
  48.       end if
  49.     end if
  50.   else
  51.     if the mouseDown then
  52.       if wait > 6 then
  53.         set wait to 1
  54.       end if
  55.       if the timeoutLapsed > (3 * 60) then
  56.         startTimer()
  57.         mixdown2()
  58.         do("sel" & s & EMPTY)
  59.       end if
  60.     end if
  61.   end if
  62. end
  63.